perm filename WD.F4[SCR,LCS] blob sn#375408 filedate 1978-08-24 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		integer z
C00003 ENDMK
CāŠ—;
	integer z
	TYPE 1
	ACCEPT 2,Z
4	Z=Z.AND..NOT.((Z/2).AND."201004020100)
5	TYPE 3,z
1	FORMAT(' TYPE   '$)
2	FORMAT(A5)
3	FORMAT(1XA5)
	END